home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Mail / Send.pm < prev    next >
Text File  |  2008-04-14  |  1KB  |  61 lines
  1. # Copyrights 1995-2008 by Mark Overmeer <perl@overmeer.net>.
  2. #  For other contributors see ChangeLog.
  3. # See the manual pages for details on the licensing terms.
  4. # Pod stripped from pm file by OODoc 1.04.
  5.  
  6. use strict;
  7. package Mail::Send;
  8. use vars '$VERSION';
  9. $VERSION = '2.03';
  10.  
  11. use Carp;
  12. require Mail::Mailer;
  13.  
  14. sub Version { our $VERSION }
  15.  
  16.  
  17. sub new(@)
  18. {   my ($class, %attr) = @_;
  19.     my $self = bless {}, $class;
  20.  
  21.     while(my($key, $value) = each %attr)
  22.     {    $key = lc $key;
  23.         $self->$key($value);
  24.     }
  25.  
  26.     $self;
  27. }
  28.  
  29.  
  30. sub set($@)
  31. {   my ($self, $hdr, @values) = @_;
  32.     $self->{$hdr} = [ @values ] if @values;
  33.     @{$self->{$hdr} || []};    # return new (or original) values
  34. }
  35.  
  36.  
  37. sub add($@)
  38. {   my ($self, $hdr, @values) = @_;
  39.     push @{$self->{$hdr}}, @values;
  40. }
  41.  
  42.  
  43. sub delete($)
  44. {   my($self, $hdr) = @_;
  45.     delete $self->{$hdr};
  46. }
  47.  
  48.  
  49. sub to        { my $self=shift; $self->set('To', @_); }
  50. sub cc        { my $self=shift; $self->set('Cc', @_); }
  51. sub bcc        { my $self=shift; $self->set('Bcc', @_); }
  52. sub subject    { my $self=shift; $self->set('Subject', join (' ', @_)); }
  53.  
  54.  
  55. sub open(@)
  56. {   my $self = shift;
  57.     Mail::Mailer->new(@_)->open($self);
  58. }
  59.  
  60. 1;
  61.